home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / eggdrop / eggdrop11.lha / scripts / compat.tcl next >
Text File  |  1997-01-15  |  786b  |  30 lines
  1. #
  2. # scripts to implement the old '+friend' etc commands
  3. # for compatability with REALLY old versions of eggdrop
  4. #
  5.  
  6. bind dcc m +op "do_chattr +o"
  7. bind dcc m -op "do_chattr -o"
  8. bind dcc m +friend "do_chattr +f"
  9. bind dcc m -friend "do_chattr -f"
  10. bind dcc m +deop "do_chattr +d"
  11. bind dcc m -deop "do_chattr -d"
  12. bind dcc m +party "do_chattr +p"
  13. bind dcc m -party "do_chattr -p"
  14. bind dcc m +xfer "do_chattr +x"
  15. bind dcc m -xfer "do_chattr -x"
  16. bind dcc m +master "do_chattr +m"
  17. bind dcc m -master "do_chattr -m"
  18. bind dcc m +kick "do_chattr +k"
  19. bind dcc m -kick "do_chattr -k"
  20.  
  21. proc do_chattr {change handle idx who} {
  22.   if {$who == ""} {
  23.     putdcc $idx "You need to specify a handle."
  24.     return 0
  25.   }
  26.   set atr [chattr $who $change]
  27.   putdcc $idx "Flags for $who are now: $atr"
  28.   return 1
  29. }
  30.